(list-input-methods): Fix args to help-xref-button.

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 90d5b87c4c6c242d3c081c9a1cd40b89c10e026d..c2e46c1be6248ceca4eb9328b0411ce3a56a5e93 100644 (file)
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -1181,9 +1181,7 @@ see the function `describe-fontset' for the format of the list."
        (goto-char (point-min))
        (while (re-search-forward
                "^  \\([^ ]+\\) (`.*' in mode line)$" nil t)
-         (help-xref-button 1 #'help-input-method
-                               (match-string 1)
-                               "mouse-2: describe this method"))))))
+         (help-xref-button 1 'help-input-method (match-string 1)))))))
 
 (defun list-input-methods-1 ()
   (if (not input-method-alist)